#Include 'Protheus.ch'
#Include 'TbiConn.ch'

User Function MDDJ0010()
Local aArquivos := {}
Local aColStru := {}
Local cCamBusca := "" 
Local cCamGrava := ""
Local cExtBusca := "*.VEC"
Local cExtGrava := "*.DBF"
Local cArquivo := ""
Local cNomArq := ""
Local nQtdReg := 0
Local nI := 0

//RpcSetType(3)
//PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"
ConOut("[" + DToC(Date()) + " " + Time() + "] ####### INTEGRACAO MEDIDORES - COPIA DADOS #######")
ConOut("[" + DToC(Date()) + " " + Time() + "] COPIA DADOS MEDIDOR ENTRADA..")

cCamBusca := GetSrvProfString("Startpath", "") + "MEDIDOR\FONTE\"
cCamGrava := GetSrvProfString("Startpath", "") + "MEDIDOR\DADOS\"

AEval(Directory(cCamBusca + cExtBusca), {|x| AAdd(aArquivos, cCamBusca + x[1])})
nQtdReg := Len(aArquivos)

For nI := 1 To nQtdReg
	cArquivo := StrTran(StrTran(aArquivos[nI], cCamBusca, cCamGrava), ".VEC", ".DBF")
	__CopyFile(aArquivos[nI], cArquivo) // Copia o arquivo renomeando-o
Next nI

cNomArq := CriaTrab(Nil, .F.)
dbUseArea(.T., "DBFCDX", cCamGrava + "COLETA.DBF", "COL", .F., .T.)
dbSelectArea("COL")
IndRegua("COL", cNomArq, "DTOS(DATA)+HORA+LINHA", Nil, "", Nil, .F.)
COL->(dbSetOrder(1))

While !COL->(Eof())
	COL->(dbSkip())
End

COL->(dbCloseArea())
FErase(cNomArq + ".dbf")
FErase(cNomArq + OrdBagExt())

ConOut("[" + DToC(Date()) + " " + Time() + "] ####### INTEGRACAO MEDIDORES - FIM DO PROCESSAMENTO ####### ")
//RESET ENVIRONMENT
Return Nil

